WWW odkaz

Otázka od: delphi@spst.cz

23. 11. 2004 9:18

Dobry den.

Pomoci ceho se realizuje WWW odkaz.

Neco jako LABEL na formulari s odkazem na nejakou WWW stranku. Po stisku se
otevre prednastaveny prohlizec s pozadovanou strankou.

D5, WXP

Predem dekuji Jirka

Odpovedá: Marek Dostal

23. 11. 2004 9:26

> Pomoci ceho se realizuje WWW odkaz.
>
> Neco jako LABEL na formulari s odkazem na nejakou WWW stranku. Po stisku
> se
> otevre prednastaveny prohlizec s pozadovanou strankou.

Ja to resil takto:

Label6.Caption:='http://www.seznam.cz';

procedure TMyForm.Label6MouseEnter(Sender: TObject);
begin
  with (Sender as TLabel) do Font.Style:=Font.Style+[fsBold];
  //pripadne by tu mohla byt jeste zmena kurzoru na pacicku:
Screen.Cursor:=crHandPoint;
end;

procedure TMyForm.Label6MouseLeave(Sender: TObject);
begin
  with (Sender as TLabel) do Font.Style:=Font.Style-[fsBold];
  //Screen.Cursor:=crDefault;
end;

procedure TMyForm.Label6Click(Sender: TObject);
var hpStr: string;
begin
  hpStr:=(Sender as TLabel).Caption;
  Screen.Cursor:=crHourGlass;
  ShellExecute( self.Handle, 'open', PChar(hpStr), nil, nil, SW_SHOWNORMAL);
  Screen.Cursor:=crDefault;
end;

   Marek Dostal
   D7Prof, WinXP Home, FireBird 1.0.2

Odpovedá: Ivan Dulgerov

23. 11. 2004 16:25

Zdravim
> Pomoci ceho se realizuje WWW odkaz.
>
> Neco jako LABEL na formulari s odkazem na nejakou WWW stranku. Po stisku
> se
> otevre prednastaveny prohlizec s pozadovanou strankou.
*Na toto som si robil jednoduchu komponentu
*Na poziadanie zaslem na sukromny mail.

Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov@hotmail.com

Odpovedá: Ing. Jan Dvorak

24. 11. 2004 8:06

Staci do OnClick komponenty dat
ShellExec(0,'open','http://www.adresa.cz','','',SW_SHOWNORMAL);

Jan Dvorak

> Zdravim
> > Pomoci ceho se realizuje WWW odkaz.
> >
> > Neco jako LABEL na formulari s odkazem na nejakou WWW
> stranku. Po stisku
> > se
> > otevre prednastaveny prohlizec s pozadovanou strankou.
> *Na toto som si robil jednoduchu komponentu
> *Na poziadanie zaslem na sukromny mail.
>
> Ivan Dulgerov
>
>
>
>